type t [@@deriving show]

val symbol : string -> t
val name : t -> string
